﻿Public Class XLChucVu
    Private kn As New KNChucVu
    Public Function LayDSCV() As DataTable
        Return kn.DSCV
    End Function
    Public Function SaveCV(ByVal data As DataTable) As Boolean
        Return kn.SaveCV(data)
    End Function
    Public Function BUS_ArrayCV() As ArrayList
        Dim ds As New ArrayList
        Dim d As New DTO_ChucVu
        d.TenChucVu = "[Chọn Chức Vụ]"
        ds.Add(d)
        Dim data As New DataTable
        data = kn.DSCV()
        For Each dr As DataRow In data.Rows
            d = New DTO_ChucVu
            d.TenChucVu = dr("TenCV")
            ds.Add(d)
        Next
        Return ds
    End Function
End Class
